home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 18 / AMIGAplus Sonderheft 18 (1999)(ICP)(DE)[!].iso / Forum / MichaelRoth / 3-3-99 / code / codegui.asm < prev    next >
Assembly Source File  |  1998-08-31  |  8KB  |  360 lines
  1. ;// Include
  2.          Include  assem:macro/Dir
  3.          Include  assem:macro/Exec.m
  4.          Include  assem:macro/Dos.m
  5.          Include  Triton.m
  6. ;---------------------------------------------------------------------------
  7.  
  8.  CODE
  9.  
  10. ;\\
  11.  
  12. ;// OpenLibs
  13.     OpenTriton 0
  14. ;\\
  15.  
  16. ;// OpenApp
  17.          lea       apptag,a1
  18.          triton    TR_CreateApp
  19.          move.l    d0,trapp
  20.          beq       cleanup
  21. ;\\
  22.  
  23. ;// OpenProj
  24.          move.l    trapp,a1
  25.          lea       projtag,a0
  26.          triton    TR_OpenProject
  27.          move.l    d0,proj
  28.  
  29.  
  30. ;\\
  31.  
  32. .loop
  33.  
  34. ; JopTable anlegen; raussuchen der ergebnisse und Repl.
  35. ; danach auswerten der Ergebnisse und JopTable auslesen.
  36.  
  37.          move.l    trapp,a1
  38.          moveq     #0,d0
  39.          triton    TR_Wait
  40.          move.l    trapp,a1
  41.          triton    TR_GetMsg
  42.          move.l    d0,msg
  43.  
  44.          move.l    msg,a0
  45.          lea       MMsg,a1
  46.  
  47. .copymsg
  48.          move.w    #8,d7
  49.          move.l    (a0)+,(a1)+
  50.          dbra      d7,.copymsg
  51.  
  52.          move.l    trm_ID(a0),d7
  53.          cmp.l     #18,d7
  54.          bne       .loop
  55.  
  56. ;//Cleanup
  57. cleanup
  58.  
  59.          move.l    proj,d0
  60.          beq       .2
  61.          move.l    d0,a0
  62.          Triton    TR_CloseProject
  63. .2
  64.          move.l    trapp,d0
  65.          beq       .1
  66.          move.l    d0,a1
  67.          Triton    TR_DeleteApp
  68. .1
  69.          closetriton
  70.          move.l    #TR_Message_SIZE,d0
  71.          rts
  72. ;\\
  73.  
  74. ;// DATA
  75.  
  76.  
  77. ;//Texte
  78. ch      dc.b    "Chancel",0
  79. ok      dc.b    " O.k.  ",0
  80. about
  81.         dc.b    "Written by DAC698 - Michael Roth 1998",0
  82. a
  83. txtwin: dc.b "CodeMainWindow",0
  84. appname  dc.b      "Code Experiments",0
  85. appInfo  dc.b      "Experimente mit einfachen KeyPads",0
  86. appversion
  87.          dc.b      "0",0
  88.  
  89. empty    dc.b      "",0
  90. txtquell
  91.         dc.b "QuellFile",0
  92. txtziel
  93.         dc.b "ZielFile",0
  94. txtkey
  95.         dc.b "KeyFile",0
  96.  
  97. LSOffset
  98.         dc.b "LS",0
  99. RSOffset
  100.         dc.b "RS",0
  101. KSOffset
  102.         dc.b "KS",0
  103. KSStep
  104.         dc.b "ST",0
  105.  
  106. cdart
  107.         dc.b "Keypad Typ 1",0
  108. cdart2
  109.         dc.b "Keypad Typ 2",0
  110. cdart3
  111.         dc.b "Keypad Typ 3",0
  112. cdart4
  113.         dc.b "Keypad Typ 4",0
  114.  
  115. c0      dc.b "Not in Use",0
  116. c1      dc.b "XOR",0
  117. c2      dc.b "XNOR",0
  118. c3      dc.b "NOT",0
  119. c4      dc.b "ADD",0
  120. c5      dc.b "SUB",0
  121. c6      dc.b "Right Shift",0
  122. c7      dc.b "Left Shift",0
  123. c8      dc.b "KeyShift",0
  124. c9      dc.b "Reverse",0
  125. c10     dc.b "UpperToLow",0
  126.  
  127.  
  128.  
  129. ;\\
  130.  
  131.  cnop 0,4
  132. codeart
  133.       dc.l   c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,0
  134.  
  135. ;// Application
  136. apptag
  137.          dc.l      TRCA_Name,appname
  138.          dc.l      TRCA_LongName,appname
  139.          dc.l      TRCA_Info,appInfo
  140.          dc.l      TRCA_Version,appversion
  141.          dc.l      TAG_END
  142.  
  143. projtag
  144.  WindowID 1
  145.  WindowTitle txtwin
  146.  WindowPosition TRWP_CENTERDISPLAY
  147.  
  148.  VertGroupAC
  149.   SpaceS
  150.    HorizGroup
  151.     SpaceS
  152.      NamedFrameBox about
  153.  VertGroupAC
  154.          SpaceS
  155. ;// QuellFile
  156.     HorizGroupAC
  157.       Space
  158.                 NamedFrameBox   txtquell
  159.                 VertGroupAC
  160.                     HorizGroupAC
  161.                          SpaceS
  162.                          StringGadget                       empty,2
  163.                          SpaceS
  164.                          GetFileButtonS                     empty,3
  165.                          SpaceS
  166.                     EndGroup
  167.                   SpaceS
  168.                 EndGroup
  169.       Space
  170.       EndGroup
  171. ;\\
  172.          SpaceS
  173. ;// ZielFile
  174.     HorizGroupAC
  175.       Space
  176.                 NamedFrameBox   txtziel
  177.                 VertGroupAC
  178.                     HorizGroupAC
  179.                          SpaceS
  180.                          StringGadget                       empty,4
  181.                          SpaceS
  182.                          GetFileButtonS                     empty,5
  183.                          SpaceS
  184.                     EndGroup
  185.                   SpaceS
  186.                 EndGroup
  187.       Space
  188.       EndGroup
  189. ;\\
  190.          SpaceS
  191. ;// KeyFile
  192.     HorizGroupAC
  193.       Space
  194.                 NamedFrameBox   txtkey
  195.                 VertGroupAC
  196.                     HorizGroupAC
  197.                          SpaceS
  198.                          StringGadget                       empty,6
  199.                          SpaceS
  200.                          GetFileButtonS                     empty,7
  201.                          SpaceS
  202.                     EndGroup
  203.                   SpaceS
  204.                 EndGroup
  205.       Space
  206.       EndGroup
  207. ;\\
  208.          SpaceS
  209. ;// Cycle row 1
  210.                 HorizGroupAC
  211.                  Space
  212. ;// Typ1
  213.                    NamedFrameBox    cdart
  214.                    VertGroupAC
  215.                         HorizGroupAC
  216.                              Space
  217.                              CycleGadget    codeart,8,0
  218.                              Space
  219.                         EndGroup
  220.                       SpaceS
  221.                    EndGroup
  222. ;\\
  223. ;// Typ2
  224.                    NamedFrameBox    cdart2
  225.                    VertGroupAC
  226.                         HorizGroupAC
  227.                              Space
  228.                              CycleGadget    codeart,9,0
  229.                              Space
  230.                         EndGroup
  231.                       SpaceS
  232.                    EndGroup
  233. ;\\
  234.                  Space
  235.                 EndGroup
  236. ;\\
  237.  
  238. ;// Cycle row 2
  239.                 HorizGroupAC
  240.                  Space
  241. ;// Typ3
  242.                    NamedFrameBox    cdart3
  243.                    VertGroupAC
  244.                         HorizGroupAC
  245.                              Space
  246.                              CycleGadget    codeart,10,0
  247.                              Space
  248.                         EndGroup
  249.                       SpaceS
  250.                    EndGroup
  251. ;\\
  252. ;// Typ2
  253.                    NamedFrameBox    cdart4
  254.                    VertGroupAC
  255.                         HorizGroupAC
  256.                              Space
  257.                              CycleGadget    codeart,11,0
  258.                              Space
  259.                         EndGroup
  260.                       SpaceS
  261.                    EndGroup
  262. ;\\
  263.                  Space
  264.                 EndGroup
  265. ;\\
  266.  
  267. ;// row 3
  268.                 HorizGroupAC
  269.                  Space
  270. ;// Typ3
  271.                    NamedFrameBox    RSOffset
  272.                    VertGroupAC
  273.                         HorizGroupAC
  274.                              Space
  275.                              SliderGadget 0,7,12,4
  276.                              Space
  277.                         EndGroup
  278.                       SpaceS
  279.                    EndGroup
  280. ;\\
  281. ;// Typ2
  282.                    NamedFrameBox    LSOffset
  283.                    VertGroupAC
  284.                         HorizGroupAC
  285.                              Space
  286.                              SliderGadget 0,7,13,4
  287.                              Space
  288.                         EndGroup
  289.                       SpaceS
  290.                    EndGroup
  291. ;\\
  292.                  Space
  293.                 EndGroup
  294. ;\\
  295.  
  296. ;// row 4
  297.                 HorizGroupAC
  298.                  Space
  299. ;// Typ3
  300.                    NamedFrameBox    KSOffset
  301.                    VertGroupAC
  302.                         HorizGroupAC
  303.                              Space
  304.                              SliderGadget 0,7,14,4
  305.  
  306.                              Space
  307.                         EndGroup
  308.                       SpaceS
  309.                    EndGroup
  310. ;\\
  311. ;// Typ2
  312.                    NamedFrameBox    KSStep
  313.                    VertGroupAC
  314.                         HorizGroupAC
  315.                              Space
  316.                              SliderGadget 0,7,15,4
  317.  
  318.                              Space
  319.                         EndGroup
  320.                       SpaceS
  321.                    EndGroup
  322. ;\\
  323.                  Space
  324.                 EndGroup
  325. ;\\
  326.          SpaceS
  327. ;// Buttons
  328.               VertGroupAC
  329.                Space
  330.                  HorizGroupAC
  331.                    Space
  332.                    Button ch,18
  333.                    Button ok,19
  334.                    Space
  335.                  EndGroup
  336.                Space
  337.               EndGroup
  338. ;\\
  339.          Space
  340.  EndGroup
  341.  SpaceS
  342.  EndGroup
  343.  SpaceS
  344.  EndGroup
  345.  
  346.  dc.l  TAG_END
  347. ;\\
  348.  
  349.  
  350. ;// BSS
  351.  BSS
  352.  
  353. trapp
  354.          ds.l      1
  355. proj     ds.l      1
  356. msg      ds.l      1
  357. MMsg      ds.l      TR_Message_SIZE
  358. ;\\
  359. ;\\
  360.